home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / vivid / getat2.dir / 00105_Script_105 < prev    next >
Text File  |  1996-11-09  |  1KB  |  37 lines
  1. on exitFrame
  2.   global pointer,lista,mywindow
  3.   set start_=500
  4.   set lista=[]
  5.   set loop=0
  6.   repeat with loop=0 to count(pointer)/3-1
  7.     set tipo=value(getat(pointer,loop*3+2))
  8.     if tipo=-1 then exit repeat --esce se finito il ciclo
  9.     
  10.     --add lista,[#DESC:"Squeeze!",#PATH:"non used",#TEXT:EMPTY,#CAST:102]
  11.     if tipo=#digitalvideo then --Φ un filmato e quindi lo carica...
  12.       importfileinto cast start_,getat(pointer,loop*3+4)
  13.       if  (the size of cast start_ /1024)>200 then  set the controller of cast  start_ to 1
  14.       set the pausedatstart of cast start_ to 1
  15.       add lista,[#DESC:getat(pointer,loop*3+3),#PATH:"non used",#TEXT:EMPTY,#CAST:start_]
  16.     end if
  17.     
  18.     if tipo=#text then -- Φ un testo e quindi setta la lista e basta
  19.       add lista,[#DESC:getat(pointer,loop*3+3),#PATH:"non used",#TEXT:getat(pointer,loop*3+4),#CAST:EMPTY]
  20.     end if
  21.     
  22.     if tipo=#bitmap then -- qui Φ un'altra storia in quanto dobbiamo utilizzare il BASIC.dir (la sua copia...)
  23.       global NUMERO_CAST,DATI_BITMAP
  24.       set NUMERO_CAST= value(getat(pointer,loop*3+4))
  25.  
  26.       tell mywindow to Get_cast
  27.       duplicate cast 31,cast start_
  28.       set the picture of cast start_ to DATI_BITMAP
  29.       add lista,[#DESC:getat(pointer,loop*3+3),#PATH:"non used",#TEXT:EMPTY,#CAST:start_]
  30.     end if
  31.     set start_=start_+1
  32.     
  33.   end repeat
  34.   add lista,-1 
  35.   
  36.   play done
  37. end